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l. AUSTRACT 
Tas SEESGTE DUPRE xcs cn. uO Fm TE HEE 
4 mie 0 
EA aR Gea eae INDE IL TRE RES EES Rue ceed Foe 
TESI8 Test ACL DLII-E LOGIC i nay BE USED fe TROiVIDURLC 
eg ue 19 ot lie’ S. THE FF Line TESTS 06 NgT REGUIFE | TE 
BY. 
QUIRY No tHE usE "e MODEMS AND A SUITABLE TERMINAL Devi B® 
THREE STARTING ADDRESSES ARE PROVIDED. THEY ARE: 
200 - NORMAL STAR 
10 - REMAP Devices PRESENT AND RESTART 
=O - MODIFY DEVICE RODRESSES IF NON STANDARD 
INSTRUCTIONS TO 50 THIS ARE TYPED OUT 
THIS DOCUMENT DESCRISES THE ON LINE TESTS. 
THE AVAILABLE TESTS ARE: 
PRGO siuer CHARACTER LINE NODE DATA TEST 
FRGS = MESSAGE f EAST Oey 8 Beer ry 
PSG4 MESSAGE TRANSMIT (SPIRAL) ONLY WvwW/O PARITY. 





é. REGUIREMENTS 
g.3 EQUIPMENT 
A. POP 11 SYSTEM 
S. O1ii-€(S) 
c. SUITABLE TERMINAL CEVICE (ASR 33, 3°, CATA © 
D. MOSEM TYPE 193 OR 202 OR EQUIVALENT 
&.2 ST USAGE 
THIS FROGRAM USES 8x OF MEMOR 
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OPERATING PROCEDURE: 

LOADING PROCEDURE 

THE ABSOLUTE LOADER IS USED 70 LOAD THE PROGRAM. 
DLII-E PARAMETER SELECTION 

THE SELECTABLE OL11-E PARAMETERS ARE: 






Bivi-0 CHARACTER LENGTH 
BITi BITO © CHAR. LENGTH 
eee : 
‘ r% é 
0 £ 
1 5 


3 
i 
i 
WHEN A TERMINAL IS INVOLVED DLII-E PARAMETERS SHOULD SE 
SET ACCORDING TO TERMINAL SPECIFICATIONS. 


PDP-11 STANDARD OPERATING PARAMETERS 

Swis HALT_ON ERROR 

Suid SCOPE LOOP (NOT USED? 

Swi3 TNHISIT ERROR FRINTOLT 

Suiz INHIBIT TRACE TRAP (NOT USED: 
Swit INHIBIT ITERATION (NOT USED) 
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3.4 


GENERAL 
1a "SELECTED CON ea ci Bec USTNG He a Paine WHICH 
EY: fhe ese fh REQUESTED BY fhe PROGRAM CURING 


NECTI 
THE out OM ING BROCEEDURES "Stout BE FOLLOWED TO SELECT ANY 
OF THE THREE SELECTABLE CONFIGURATIONS: 


CONFIGURATION 0: a ee ent ie ete ey aay A 
D INE T a CALLE 

CALLER). 

Y BE VISUAL ALLY CHECKED AT 


BY MAY 
RAINAL DEVICE. MBO Pe PROGRAM ACTION CALL THE MO- 
D - MODEM CONNECTED 10 alte TERMINAL 


WHEN THE DSHA: 
PARAMETERS. TYPE THE PARAMETERS AS REG'IESTED. THe B 
WILL TYPE "LINE CONNECTION MADE’ AND &eGIN DATA TRANSMISSION. 


LESTFEREKERAFKAEAE LERLLFEEAAFRAFFRE 
* * 


* * 
* oe 5 3 & 
& DATA SET #ssssseseessesessesee=e2% DATA SET + 
5 * * a 
+ 5 3 ef # 
RERFLSFSSLLSFASELE RAFEFFLERELELFUFE 

+ * 

£ t 

+ * 

5d + 

> 2 
FLFERELRAATFRERES SLSRARLAAFELAELERE 
* * 4 
* % * REMOTE * 
# DLL1-E * > * 
* * * TERMINAL =# 
& + + 5 
SHRAEFELAFEAEZAEE SRRARATTSRALERAARE 


CONFIGURATION 0 


get gots 1; _THIS CO etn eeearts DATA FROM THE 


TQ THE DLLI-E CON- 
0 INIT 


THE 
WHEN T ONE RINGS THE POP11 THE PROGRAM WILL REQUEST 
THE et ate AND MODEM Bis? TYPE B1T0-1=01 - BIT2=0 IF 
A 103 (OR EQUIV.) AND BITe=1 IF A 202 (OR EQUIV. 
THE PROGRAM WILL REQUEST THE LINE NUMBER THAT you" CALLED F 
TYPE THIS IN OCTAL FOLLOWED BY A CARRIAGE RETURN. WHEN THE CARRIER 
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: eo i ai. +e o ceee mi as ae Ten Te Do Tet THE a 


HIS. 
a sibs i Aa ea Be a 
WHEN. pci be ae HAVE git 


OCESSED. 
NOTE, DLI1-Esx REFERS TO THE ‘CALLED’ CLIi-E, AND DLII-Esy RE- 
PERS TO THE CALLING DL1I-E. 


TU) 0 & + b= <b + b-< b+ + 0 p—-0 p- 0 h -0 B+ 0-2 & 2 0 0 & @ §-0 po b= 9-2 Be 


fH BDD PU LOO DD IO Lear ee Ft 


t ururururutyrururorurun ure 
Ou Peshrst GRAZE 






HSAARLEFRAERELKRSE LLAFLERAALFRAAELE 
* # * 5 4 
* * ¥ * 
* DATA SET #ssesssseesseseseeeses2= x DATA SET # 
& > * * 
* * + 5 3 
HHHSAATSASRAFEAER REFKERAFLRLEAEEKE 

* 5 7 

5d 5d 

* s 

* # 
HHHRRERALHRHAAERR SELAARALAFAFLAELE 
% & * ; 
* 5 2 z ca 
* DLU-E »* * OLU-E »* 
% * 5 2 Ba 5 3 
5 3 * & * 
LKEARERERAKEAAPEE SRFRERERELFFA AER 

* 5 

* 5 3 

t UNIBUS ‘ 


CONFIGURATION 1 103 OR 202 
CONFIGURATION 2 193 
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GOl 


CUNFIGURATION 2: THIS CONFIGURATION Moa: yy be. ab te 
Meee Pee eel 


1’ DATA Ts AL ITTED I 
patria ra a eg sl ets RRR teach is 
CONFIGURATION AND MODEM TYPE. TYPE BITO1 s10 10 BND Dei te=0, NS NOTE: 


4444442400 NOT USE MODEM TYPE 202 (OR EQUIV) LB ING CONFIG sceeee 
ST THE LINE YOU CALLED FROM. TYPE THE 
OCTAL FOLLOWED BY ; N THE CARRIER IS 
HE ARO IN THE HEADSET PRESS THE DATA BUTTON ON THE DATA SET. 
NOTE YOU HAVE APPROXIMATLY 10 SECONDS IN WHICH TO DO THIS. 
WHEN THE "HANDSHAKING IS ener QUES 


THO SETS OF DLL1-E PARAMETER C H_SETS 
THAN THE SPEED OF THE FT ee eer E BEEN LOR 
ED THE PROGRAM WI fat E tine ONNECTION aNd BEGIN 70 
WAY DATA TRANSMI CHARAC VE BEEN RECEIVED 


AND CHECKED THE Seu WILL tC RING. AT THE tty, AND ANOTHER BLOCK 

OF 100. CHARACTERS WILL BE PROCESSED. 

NOTE, DLI1-Ea#x REFERS TO THE ’CALLED’ DLII-E, AND DL11-Esy RE- 
FERS TO THE ‘CALLING’ DLJI-E. 


LINE NUMBERS 

LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DLi1-E RESPONDS. 
LINE 09 77561X LINE 10 77571X LINE 20 aa 28 LINE 30 77611X 
LINE 0! 7755eX LINE 11 77572X LINE 21 77602X LINE 31 77612x 
LINE G2 77563X LINE le 77573X LINE 22 FrEDaK LINE 32 77613x 
LINE O03 77564X LINE 13 77574X LINE 23 77604X LINE 33 77614X 
LINE O4 77565X LINE 14 77575X LINE 24 7760SX LINE 34 77615Xx 
LINE OS Ma LINE 15 77S7EX LINE 2S 77696X LINE 35 77516X 
LINE 06 ak Tey LINE 18 77577X LINE 26 77607X LINE 36 77617X 
LINE C? 77570X CLINE 17 77600X LINE 27 77610x 
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4. 


4.1 


4.2 


4.3 


HO1 






USE PROCEDURE 


a a CONSOLE PROCESS. ry es ae ee es ee 


IFAC fae MACHINE IS USED; THEN THE PROGRAM 
LOOKS AT THE HARDWARE SWITCH "REGISTER. 

If A CONSOLE-LESS MACHINE IS U HEN THE PROGRAM 
UTOMATICALLY LOOKS AT THE Contents OF LOCATION 
SOFTSR (176) AS A SWITCH REGISTER 


IT’S THE RESPONSIBILITY OF THE OPERATOR TO SET UP 
THIS LOCATION PRIOR TO STARTING THE PROGRAM. 


PRGO SINGLE CHARACTER LINE MODE DATA TEST 
A. LOAD ADDRESS = 000200 (RESTART LOAD ADDR. = 000200) 
B. START - PROGRAM WILL REQUEST PROGRAM NUMBER 


C. THE PROGRAM WILL NOW REQUEST THE DATA. TYPE THE DATA IN OCTAL 
FOLLOWED BY A CARRIAGE RETURN. 


D. MAKE LINE CONNECTION. SEE SECT 3.4 

























PRG! - BINARY COUNT LINE MODE DATA TEST 

A. LOAD ADDRESS = 009200 

B. START - PROGRAM WILL REQUEST PROGRAM NUMBER 
C. MAKE LINE COrNECTICN SEE SECT 3.4 


PRG2 - SPECIAL MESSAG: XMIT ONLY 
A. LOAD ADDRESS = 000200 
8. START - PROGRAM WILL REQUEST PROGRAM NUMBER 


C. DEPRESS START - THE PROGRAM WILL IDENTIFY ITSELF AND 
TYPE INSTRUCTIONS TO SELECT DESIRED DL11-E PARAMETERS 


(SEE SECT 3.2) 


D. TYPE IN PARAMETERS. , T IS DESIRED TO TRANSMIT 
DATA WITH PARITY SET BIT6. ALSO SET BITS TO TRANSMIT ODD 
PARITY AND CLEAR TO TRANSMIT EVEN PARITY. 


BIT 1/0 ENABLE/DISABLE PARITY 
BITS 1/0 TRANSMIT ODD/EVEN PARITY 


E. WHEN *MAKE LINE CONNECTION * IS ep CALL THE DLII-E 
YOU WISH TO TRANSMIT ON FROM THE TERMI MODEM. 
WHEN THE "HANDSHAKING’ IS COMPLETED THe MESSAGE” 


' renee ee me ee oe ee 


DICLSS MACYii 271732! iI7-SEP-7& 15:21 PAGE 8 
DCOLBB.P ii . 
308 ‘s *THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 


333 : 3123456789" WILL BE TRANSMITTED. TO TERMINATE, HANG UP. 


—_— ee 
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310 4.4  PRGQ - RECEIVE TRANSMIT MESSAGE TEST 
312 A. LOAD ADDRESS = o00z00 
34 B. START - PROGRAM WILL REQUEST PROGRAM NUMBER 
¢. THE PROGRAM WILL IDENTIFY IT 
0 TE RRS a toh PB Sec? BESTREN OPTIONS. 
313 D. SET IN OPTIONS AND PRESS CONTINUE. 
351 E.. WHEN "MAKE LINE CONNECTION” IS, TYPED CALL THE DLLI-E 
352 YOU KISH TO TRANSHIT ON. “KHEN THE *HANDSHEKING’ “IS CONPLETED 
355 THE DL11-E WILL TRANSMIT A CRLF TO THE TERMINAL DEVICE. AT THIS 
354 THRE TON HAY BEGIN TO SEND BATA FROMTHE DEVICE $0 THE DEI I-E 
cr WHERE IT WILL GE ECHOED BACK TO THE TERRINGL. TYPE ANY CHARACTER 
LOABACTER TOc ND OF ied ‘WILL Thee tue 
EE SUPPERS ROR M: eh rant aor “gone 
330 F. IF NO ECHO IS DESIRED (ON A CHARACTER BASIS FOR EXAMPLE 
331 WHEN USING A TERMINAL THAT PRODUCES ITS OWN LOCAL COPY) 
332 SET BIT? OF SWITCH REGISTER. 






334 4.5 PRGY - SPECIAL MESSAGE XMIT ONLY 
A. LOAD ADDRESS = o00200 











337 

338 B. OPTIONS 

339 1. BITS O-2 = 4 

a 2. BITS 3-6 = LINE NUMBER (SEE SECT 3.5) 

ste C. DEPRESS START - THE PROGRAM WILL IDENTIFY ITSELF AND_ 
343 TYPE INSTRUCTIONS TO SELECT DESIRED DL11-E PARAMETERS 







44 

ae (SEE SECT 3.2) 

347 D. SET IN PARAMETERS IF IT IS weg TO_TRANSMIT 

348 DATA WITH PARITY RAISE SR&. ALSO RAISE i TC TRANSMIT ODD 
249 PARITY AND LOWER TO TRANSMIT EVEN PARITY 







351 BIT6 1/0 ENABLE/DISABLE PARITY 

$26 BITS 1/0 TRANSMIT ODD/EVEN PARITY 

354 E. WHEN MAKE LINE CONNECTION * IS TYPED CALL THE DLI1-E 
3sS YOU WISH TO bg ge ON FROM THE TERMINAL MODEM. 

358 WHEN THE *HANDSHAKING’ IS COMPLETED A SPIRAL 






PATTERN WILL BE TRANSMITTED. TO TERMINATE, HANG UP. 
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PROGRAM DESCRIPTIONS 
PRGO - SINGLE CHARACTER LINE MODE DATA TEST 


PRGO TRANSMITS ie = DATA AND A CARRIAGE RETURN/LINE FEED 
EVERY 72ND CHARACT 


PRG1 - BINARY COUNT PATTERN LINE MODE DATA TEST 


PRG1 TRANSMITS A BINARY COUNT PATTERN. THIS PROGRAM IS THE SAME 
AS PRGO EXCEPT FOR THE DATA TRANSMITTED. 


PRG2 - SPECIAL MESSAGE TRANSMIT ONLY 


PRG2 TRANSMITS THE MESSAGE 
THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789. 
NO DATA ERROR CHECKING IS PERFORMED BY THE PROGRAM. 


PRG3 - RECEIVE/TRANSMIT MESSAGE TEST 


PRG3 - RECEIVES DATA FROM A TERMINAL AND READS THE RECEIVED MESSAGE 
BACK, AND TYPES THE MESSAGE ON THE PDP-11 TTY WHEN THE MESSAGE 

IS TERMINATED. CHARACTERS MAY BE ECHOED BACK {IF REQUIRED) ON 
Re EER BASIS THEREBY CREATING LOCAL COPY AS THE MESSAGE 


TRANSMISSION MAY bein AT THE TERMINAL WHEN A CR/LF IS Ferg IVED 
T THIS PROGRAM IS RESTRICTED TO USE BY ONL 

FULL DUPLEX MODEMS. 

PRG4Y - SPECIAL MESSAGE TRANSMIT ONLY 


PRGY TRANSMITS A SPIRAL PATTERN. 
NO DATA CHECKING IS PERFORMED SY THE PROGRAM. 
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LO1 


6.0 RRORS 
THERE, ARE oe LP Ay 3 5 Y coe WHICH ARE DETECTED BY THESE TESTS 


nu Bue ries ne TEES T WHEN USTHG’ CONF. 


OR 2. DATA & TesTs 15. NAY BE DETECT- 
ED BY VSS INSPECTION OF THE DATA AL THe, TERR 
FAILURES ARE REPORTED BY TYPING THE PC, THE E RECEIVER. CON 


INE_WI TO BE RECONNECTED TO RE TEST ING 
TI PHYSICALLY ere TO GET TO THE DATA BUTTON 

WITHIN THE he ALLOTTED (APPROX. 10 SECONDS) TO MAKE THE 

INE C ON, THIS TIME MAY BE INCREASED BY PUTTING A 
OQ THE DELAY. PATCH THE LARGER NUMBER 
INTO THE ADDRESS FOLLOWING THE DELAY EMT (BETWEEN RINTBS AND 
RINTBH).FOR EXAMPLE PATCHING IN 72460 WILL ALLOW APPROXIMATELY 
30 SECONDS IN WHICH TO RESPOND. 


DATA ERRORS ARE REPORTED BY TYPING THE PC, THE Re ce Tver CONTROL 
oer nee ADDRESS OF THE LINE THAT FAILED, WHAT THE DATA SHOULD 
HAVE BEEN,WHAT THE DATA WAS,AND THE CHARACTER NUMBER. 


PC=XXXXXX 174010 DATA S/B 301 WAS 321 CHAR NO 23 


THIS TYPEOUT INDICATES A DATA ERROR ON LINE 1 
NeIG TION 2 IS SELECTED TWO ERROR T#POUTS MAY OCCUR 
NGLE ERROR DEPENDING ON WHERE inf ERROR OCCURED. 
ay © COMPARES THE DATA RECEIVED By THE CALLED DL foe 
HE bata TRANSMITTED BY THE CALLED DL1I-E, AND ALSO THE DAT 
DA THe CALL T , DLLI-E (CALLER) RE TH THE DATA FRANCHITTED 


F FOR EXAMPLE A para ERROR OCURRED AT THE RECEIVER OF THE CALLING 
DL11-E_ CAUSING IT TO TRANSMIT INCCRRECT DATA TO THE CALLED DLII-E TWO 
TYPEOUTS WILL OCCUR AS SHOWN BELOW: 


PC=XXXXXX 174010 DATA S/B 301 WAS 321 CHAR NO 23 
PC=XXXXXX 174000 DATA S/’B 301 WAS 3el CHAR NO 23 


THESE TYPEOUTS SHOW THAT THE RECEIVER ON LINE O WAS THE CAUSE 
COREY ReTAY D THE RECEIVER ON LINE 1 RECEIVED THE CORRECT 


. ENDR 





482 
483 000042 
84 
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:REFER ALS 
STARTING FR 


:SRIS- 


:SRl2- INH 


MACHER: 


MO1 





- TITLE OZDLBB 
“ENABLE ABS, AMA 
;THIS TEST CHECKS THE DLI1-E USING MODEMS 


RESS 


; AVAILABLE PROGR 


PRGO- 
PRG1- 


PROCEDURE 


ST DZDLa (DLII-E OFF LINE TESTS) 


RESS 200 
TACK POINTER IS AT 1200 


STAR 


se 


HARACTER LINE MODE DATA TEST. 
Se COUNT LI tere DATA TEST. 
SAGE XMIT ONLY W/W/0 PARITY 


XMIT_ONLY W/W/0 PARITY 


AL PATTERN MESSAGE 
PRGS- DATA ECHO TEST (USES FACILITY AT MAYNARD) 
; STANDARD Fon boca: OPTIONS (SWITCH SET TO Al ) 


LT 
:SR14- SCOPE (NOT USED) 
:5R INHIBIT PR 


IN Md 
IBIT TRACE ( 
;SR11- INHIBIT TTERATION (NOT USED) 


T USED) 


; UNASSIGNED TRAP 
;SP OVERFLOW, BUS ERROR TRAP 
;RESERVED INSTRUCTION TRAP 
; TRACE TRAP ‘ 

; TRAP TO MAP VECTOR 
;POWER FAIL TRAP 
;EMT TRAP 


; TRAP TO MAP MAKER 
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I 
04 
i b= 
504 0000 S=40 
505 900020 T4=20 
ci 990910 T3=16 
‘ aes Te= 
g b0952 Ti= 
09 0000! BITO= 
tT ABSe oe popepe=Osctz6 
SE alsey pRry7=340 
13 900300 PRTY6=300 
14 p00e49 PRTYS=240 
1s o00200 PRTY4=200 
516 009140 PRTY3=140 
517 000100 PRTY2=100 
big o040 PRTY1=40 
1§ ooo PRTYO= 
eC 1045¢0 TYPE=ENT+0 
i 104001 TYPES=ENT+1 
See 104902 STALL=EMT+2 
523 104093 ERROR=EMT+3 
504 104004 DATCHK=ENT+4 
525 104095 CHALT=ENT+5 
526 104006 STRXV=EMT+6 
527 104907 STIXV=EMT+7 
528 104010 EHAL T=EMT+10 
523 10491 SAVREG=EMT+11 
30 10401 RSTREG=EMT+1e 
531 104013 ERRORI=EMT+13 
53e 104014 ERRTX=ENT+14 
533 104015 ERRRX=EMT+15 
B34 iO4ci6 DELAY=EMT+16 
900 N=0 
bet 909000 A=0 
| 538 .MACR  CNVOA 
JSR _%5, OACNV 
; BN SRC 
, Sal DST 
| Bae COUNT 
| oe -ENOM 
bs MACK ISR 
| RISR’N’: MOV 
‘5.8 IMP == RISR 
: 
. -ENOM 
$s: : .MACR —ISRT 
sz TISR’N’: MOV 


NO1. 





;POP THE STACK. SAME AS TST (6)+ 
;POP STACK TWICE. SAME AS CMP (6)+, (63+ 
;PRIORITY LEVEL DEFINITIONS 


SRC, DST, COUNT 
;GO Mi or. TO ASCII CONVERT. 


-. {DESTINATION ADOR. 
:#OF DIGITS TO CONVERT. 


N 
#°N’ » 40 
3GO TO COMMON INTERRUPT SERVICE ROUTINE 





AeA £8 


See ee 


ye 
oH 
“f 
t 
€ 


prervarvertertertienea 


Mima TA 


*ChO(D- MOUILE. Gta 


Cath” Mun es 


ITM OMOMKOOWS 


4-3") 
S tadfeyo- 


ee rerererrerverververver verre 


SUCTUCEUCERCHNCS NC OCTTCTTETD 
PTT a ut 
6 tfue--C).000~)' *y 


SSE 


fo GER ons “C20 tD SURE Gate bu 


20 Bee SREB oo 3 
om ] SS ee & | & 


OOMMOOoOooc 


AAT aia ial ialiali alias 


Oona 


trorurururofororuru foruranihs 
RENE Bante? 
SREE 


TLTUpe +e 9--o~ 
voMm srt 


STCONT: 


JMP TISR 
.ENOM 

MACR  RRCY 
1°S6104N 


-MACR  REUFF 


I7S6124N 
.ENDM 


.MACR  TXMT 
17S6144N 
.ENDM 


MACK  TBUFF 
17SSi6+N 
.ENCM 


8R STCONT 
MOV @MODEY STAD 


MoV aSTKFIR, «5 
MOV 6,-(SP> 


Ce ne em ee ee te 





360 70 COMMON INTERRUPT SERVIC 


OF FECEIVER LINE & °A’ . 


~ 


fa) 


wP 


“ec 


~ 


por NORMAL START 
-SET FOR A REMAE START 


:SET BOTTOM OF 
RENT V 


QO POINT 
RES 
RESTORE 


:JUMP TO SELECTED START 
;RECETVER CSR UNDER TE 
;RECEIVES SUF 
: TRANSMITTER 
; TRANSMITTER 
CEIVER VECTS 

R PRIORITY LEVEL 

27 MITTER VECTOR 

> TRANSMITTER PRIORITY LEVEL 
;LSF CSR 
:LSR BUFFER 





TRANSMITTER CS i] 


TRANSMIT SUPPER LINE 


coc» 


wn 
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£05 


Orr 
1)0-*0-+0 + 0-- bp = bp 


POrrmrwrme 


i 


C1. 000~ IP UL.£ CIfue--(9 


) 


id 


(od 


Cad 
a | 


wroavweg 
erat a 


i 


iat Ai alii alata 
oe oat oat oat oat ot PT) 
O3fue- Oo 


Be en ne eee 





IJ0CI0NMNMO4 
0-< 0 © 0-9-6 0-6 pp 
Fae dittet bd atti 


eli 


Co 


CMU eee ety futurortey 


IMIVINIOIOOOVOOC 
BoeEeke SBRRBR 


BOESBSSSEbCGb80888088 SERCCGB6BEUGBEEB8RBB885EE0806EE 
£ 


ae Tee 


oO 


CRERTRASEGSR PRBOUNNS cuobtEneel ane 


-* 02 b—* 2 B= &-+ 0 0 = b= B= B- <b 2 2 O- 9 oo | Fh 2-2-0 0-0 & +» 29-2 > + b+ 9-2 0 & 2b © h-0 =< 9-0 8 <p 2&2 f- 0-2 0 hh 0H Ho 
Pale Wa) 


me me a eee ee 


;LSP CSR 

;LSP SUFFER 

sLSR INTERRUPT VECTOR 
sLSR PRIORITY LEVEL 
:LSP INTERRUPT VECTOR 
sLSP PRIORITY LEVEL 
sCONTAINS CURRENT PROGRAMS 
sCONTAINS PROGRAM INDICATORS 
:PRG atent ADDRES 


DD oO 
VB Ad 


uw? 
WnMNnininin 


: $ Q00R 
;PRG4Y START ADDRES 
;PRGS START ADDRESS 


sPOINTER TO TYPEOUT ROUT! 
;POINTER TO CHAINED MESSAGES ROUTINE 


~, 


_ gPQINTER TQ RANDOM STALL ROUTINE 


:POINTER TO ERROR ROUTINE 
:PQINTER TO_DATA CHECK ROUTINE 


;COMMON HALT 
sPOINTER TO ROUTINE TO se RCVR vEsTOR AND PRIORIT 
Q T CTOR at f BIoRI 


sPOINTER TO ROUTINE T XMIT ¥ 
;POINTER TO ERROR HALT ROUTINE 
QINTER E INE 
ISTERS ROUTINE 
sPOINTER 10 XMIT ERROR ROUTINE 
sPOINTER TO RCVR ERROR ROUTINE 
sPOINTER TO DELAY ROUTINE 
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ow beat urue- eo 


SINIININNNNISNNNNYIY 
C20 IMU £09 


ce 


BeESeRSES 


uu 
ut 


- 
ay 


oo 
oo 
bo o-- 
38 

a 


28 
Bons 


g 
<= 


1606 


SRBBBSEBB8BBR 
Sa ea a natal 
foo yi thet @mrc 
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001344 
001260 


OS0040 


001344 


OOO34C 
001219 


001354 


Oe0So4 
JOSTOS 


00135 


001350 
177352 
177344 


177776 


CALLER: OPEN 
CALLED: OPEN 
OTBUFP: OPEN 


TBUFFP: OPEN 
MODEM: een 


bemaP: CLR 


START: MOV 


MAPA: INC 


i} 
MAPNE: ADC 


MAPOK : Hoy 


DO02 


sCONTAINS ADDRESS FROM WHERE NEXT fRANS- 
sMITTED CHAR. (CALLER'S LINE? Is 
FTITLE ; 
aSTKPTR, %6 sSET SOTTOM OF SP STACK: 


PSW 
#ERTP MACHER 


#90, MACHER+2 
FTITLE 


STARTI 


MAPA 
(4), TEMP! 
%5, SACNY 


%S , OACNV 


ePRTY7,PSW 
RXVTR 


MAPOKA 
pee. x 





‘CONTAINS ADDRESS FROM WHERE NEXT TRAN- 
;SMITTED CHAR. (IN OUTBUF) IS TO COME 


;SET TITLE PRINTED FLAG 
;CLEAR NO DEVICE FLAG 


;SET UP FOR NO DEVICE ANSWER 
;SET UP DEVICE POINTER 

;LAST DEVICE 

sYES 


; TEST DEVICE 


:SHVE DEVICE FOR TYPING 


;GET RXCSR DEVICE ADDRESS 


sCONTAINS MODEM TYPE O=103,4=202 


TA FA 
iv SoM 


E 








a a7 732) 


BEE 


netted 
--—>— 
£ 


Rae eotsOtRes 


<y 
io 


S88S88S88Seseessssesss 


ateteletetststat= 0 0 6 B+ 0 = 2 bs 9. o po pep 


Bad3 


2 


podaae 
004520 


00004C 
001346 


001344 
0C142e 
177776 


093314 


177770 
CO1240 


001244 
001200 
177776 


003314 
177740 
200036 


003214 
cocoo! 


0i0432 


17-SEP-76 15:21 PAGE 


000904 MAPEND: 
O00& 


MAPERR: 


START: 


honey: 


MODEV1: 


MODEVe2: 


JSR 


MODEV3: 


E02 


pesalig Mat 


sBIT6 
“5, ope” 


w 


M 
#ERTP, MACHER 
840, MACHER+2 


START! 


FTITLE 
START 
PSW 


% 
aPRGTABIO) 
aSTKPTR, “6 
PSW 


PC gaRooeT 

sir, “0 

(SP)+ 835 
(ODEVe 


MODEV1 


T 
#8170, (SP) 
MODEV3 









;STORE VECTOR 


;GET INP 


UTSR) TO RO 
sLIMIT (8R) ane ert 2-0 
;SAVE PROGRA 


$60 TO SELECTED PROGRAM. 


;GET INPUT 


;BRANCH IF > 36 


;GET INPUT 


;SAVE DEV ADR 




















eisist te iiaisieien 


ooMonowommojmaoc 
WO IMU WITU-O 


SRRRSRES 





<DLB8.P12 


g 


b- b-2 b— b—- b= -- p= b-2 6 bp ph pp 


asttaestotasa: ais 
Bat INR COM MEER ES 


=] 
fo 
ru 
2 
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g 


Oo 
ts 
— 
o 


a 
S| hen trcrererers 


ONOO000000 
WwW 


be A he BR bh he 


3 


ONdK0d00000 


siete 
De 





oco0de 


010530" 


oco0de 
010626 
oo00de 
010724 


003314 


177777 


001344 
001422 


000002 
000009 


177001 
001264 
600990 
002310 
02312 
002312 
002319 


002350 
092352 


002352 


002350: 
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ALD #2,%1 
MOV %0,%3 
BOD aRBUE 53 
Ab ad 
MOV %0'%3 
ADD aTeSR. %3 
MOV %1, (33 
AOD te, X1 
MOV %0.%3 
ADD eTBUF ,%3 
MOV %1, (3) 
TYPE 
MMOD3 
JSR PC, RDOCT 
CMP (SP)+. a177777 
BEQ = MODE. 
CLR ETITLe 
IMP STAR 
EMT TRAP INTERPRETER 
EMTIN a%6, -(6) 
"ae Ed 
EMTA: ROL 
BIC #197001, a%6 
ADD sENTTAB, a%e 
Mov oe 
IMP 
“SAVE REGS 0 TO 4 SUBROUTINE. 
SAVRG: MOV (6)+, SVRPC 
MOV ()+, SVRPSW 
MOV 4, -{6) 
MOV “3° (6) 
MOV “2, -(6) 
MOV %1,-(6) 
MOV 40) -(6) 
MOV SVAPSW, -(6) 
MOV SVRPC, -(6) 
RTI 
RPC: OPEN 
SVRPSH: OPEN 
"RESTORE REGS O TO 4 SUBROUTINE. 
RSTRG: MOV (6)+,RSTPC 
MOY (6)+,R5TPSW 
MOV (6)+,%0 
MOV (6)+)%1 
MOV (6)+;%2 
MOV (6)+,%3 
MOV (6)+) %4 
MOV RSTPSW, -(6 
MOV RSTPC, -(6) 
RTI 
RSTPC: OPEN 





;UPDATE DeV 9DR 
UPDATE DEV ADR ~ 


;UPDATE DEV ADR 


;GET INPUT 


;GET SAVED PC. 
:DECREMENT PC BY 2. 
;EMT ARG X 2. 
;REMOVE 7 MSB. 
:FORM ENT RTN ADDR. 
;G0 TO EMT ROUTINE. 


;SAVE PC AND PSW. 
s SAVE Ay ~ 0 - ie 
;IN STA 


s 


sRESTORE PC AND PSW. 
sEXIT. 


;SAVE PC AND PSW. 


; RESTORE es 0-4 
FROM STACK 


sRESTORE PC AND PSW. 
sEXIT 
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833 o023s2 00000 —RSTPSW: OPEN 
§34 002364 104000 INCPRG: TYFe STYPE INCORRECT PROGRAM SELECTED. 
835 002356 013352 AINPRG 




















836 002360 00000 HAL T 
? O02262 OCO:37 oc142e2 IMP TART Py 
“COMMON HALT ROUTINE 

002 011600 QHLT: MOV a%6.%0 sDEVELOP ADDRESS OF CALLER. 
ay poeaoq fern =O0000e ae = sHALT. ADDRESS OF CALL INSTRUCTION 
a Rasase BRBGRS : Aft SN DATACETERTS< 
S44 _ SCONDITIONAL ERROR HALT ROUTINE. 
845 o0e490 005777 175570 EHLT: TST JSRPTR sCHECK FOR HALT ON ERROR. 
846 002404 90001 BPL EHLTA :BRANCH IF NO HALT DESIRED. 

002406 o09000 HALT *HALT. 

C02410 90002 EHLTA: RTI ‘IN DATA LIGHTS. 





DATA CHECK ROUTINE. 
002412 043737 001362 001360 OTCHK: BIC CARMSK,XMTDAT  ;CLEAR UNTRANSMITTED BITS 






Obe¥e0 183737 Oclssé 001360 CMPB RECDAT, XMTDAT  ;COMPARE TRANSMITTED AND RECEIVED 
O46 001430 BEQ. = DTCHKA’ CHARS. BRANCH IF SAME. 

002436 CNVOR —RECDAT, CAS, 3 

o02442 CNVOA SBR 

O0e4S4 CNVOR 2XCSR, TASRAOB, 6 

002466 104013 « ERR*® | 





RALD 
O02e47e 004537 CO42l6 JSR 5,BDCNV coven 


002476 001364 CTRD : 4 
o92s00 013343 - =. CRNUM :TO DECIMAL 
oo2502 90c004 on 4 :4 BITS 
ppseoe arsed | EERDAT 
Base IB Boaaoe DTCHKA: RTI . EXIT. 
002512 012737 177777 oO2624 ERR: MOV #-1, ERRB ;SET UP ONE MESSAGE CALL. 
Dle7 37 009240 o02626 MOV #40, ERRE+2 . 
7 002644 CLR 
002532 000413 BR. BREA 
002534 011637 002624 ERR1: MOV 3%, ERRB sDEVELOP ADDT’L MESSAGE ADDR. 
002540 017737 OO0060 o02624 MOV JERRS, ERRB :STORE AT ERRB. 
002546 912737 177777 O026e6 MOV a1 ERRB+2 
302554 012737 oOo00d2 o02644 MOV 


RRE 
aad 032777 Oe0000 175404 ERRA: BIT sattia. @SRPTR ; INHIBIT ERROR PRINT? 
0025 BNE ERRC 


001020 :BRANCH TO INHIBIT PRINT. 
002572 011637 oo02642 MOV ai ERRD :DEVELOP CALLING ADDR. 
002576 162737 OO00002 odeb42 SUB 2, ERRD 
002604 CNVOA fRaD. APC,& ;CONVERT CALL ADDR TO ASCII. 
002616 104011 SAVREG 
992620 104001 TYPES TYPE: 

012427 EMO ERROR HEADER, 

og5009 ERRB: OPEN ;ADDT’L ERROR MESSAGE IF ANY. 
002630 104012 RSTREG : 
002632 104010 ERRC: EHALT :GO ERR HALT IF DESIRED. 
002634 63716 Oo2644 ADD ERRE, 3% 
902640 RTI sEXIT. 














PR 


@ 
ib 


prist eietassiets 


PG ee yi cea cited 
oO WM OWONMU £OIfur-O 


wo 100.0 
fe 


wo 
28 


Py whee 
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000902 
000090 
012737 
O0O90C 
012737 
000005 
tat 
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OCle16 


203312 
o00002 





000024 
ooode4 


003926 
003026 
003024 
17S20e 


002642 


003062 


003112 


15:21 PAGE 20 
ERRD: OPEN 
ERRE: OPEN 
“POWER FAIL SERVICE 
BEQuER abt 

HALT 
PWRUP: MOV 
RESET 
MOV 
TYPE 
MPWRF 
RESTRT: MOV 
ASL 
IMP 
TXERR: CNVOA 
MOV 
BR 
RXERR: CNVOA 
MOV 
CRXTX: MOV 
MOV 
BIT 
BNE 
MOV 
SUB 
CNVOA 
TYPES 
EMO 
CRXTXA: OPEN 
CRXTXB: OPEN 
CRXTXC: EHALT 
ADD 
RTI 
ROUTINE’ TO: SET 
STRYRV: MOV 
MOV 
STPRA: MOV 
MOV 
RTI 
ROUTINE TO SET 


STXMTV: MOV 
ADD 


STPPA: 


typ 


® SUBROUTINE. 
: MOV’ 


MOV 
MOV 


MOV 
RTI 


MOV 
ADD 


TO Re ee Rt ASCII MESSAGE ON TELETYPE PRINTER. 
















#PWRUP , d#24 
aPFAIL,d#24 
aSTKPTR, “6 






PRGNUM, 70 
@PRGTAB(O) 


TXCSRT, ATXWAS, 6 
BATXCSR, CRXTXB 


RXCSR7 , ARXWAS , 6 






;CONVERT CONTENTS OF TXCSR TO ASCII. 


;CONVERT CONTENTS OF RXCSR TO ASCII. 
;DEVELOP ADDR OF ADDTT*L ERROR MESSAGE. 
; INHIBIT PRINT? 


BARXCSA 4 SEXTXE 


31, CRXt SRXTXA 
eB1T13, , OSRPTR 





CRX BRANCH TO INHIBIT PRINT. 
ab ERO DEVELOP CALLING ADDR. 
ERO, APC ,& ;CONVERT CALLING ADDR TO ASCII. 
inet ADER MESSAGE. 
sADDT’L ERR MESSAGE 
;1XCSR OR RXCSR CONTENTS. 
;GO0 HALT IF DESIRED. 
#2,0%6 





;EXIT. 
RECEIVER BRANES HON VECTOR AND PRIORIT 






36) , STP. OVE VECTOR ADDR TO srpRase 
#2, 046 *SET UP EXIT 
RXVTR, “1 
#OPEN, (1)+ SET VECTOR ADDRESS 
RXLVL* (1)+ 4 SET P RIORITY 





TRANSMITTER INTERRUPT VECTOR AND PRIORITY. 
fe ADDR TC STPFA+2 


0(6), STPPAtE 


rite 

TXVTR, 41 .. 
OPEN, (1)4 
TXLVL; (1)+ 






;SET VECTOR ADDRESS. 
SGT ,PRLORITY 






Vv 
GET AgoneSS THAT CONTAINS MESSAGE ADDRESS.° 


a%6; 0 
#2, 0%6 










DZOLBB 
DZDL88 


Rass 


PRA ulate nal arta at 


976 


sogsesseeeeepegesese 


Bo 
wo 
N 
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BabiGo 
003322 
oooo4s 


001324 
175654 


175660 
000200 
175652 
175646 
000015 
000177 
000060 
000067 


003242 


003242 


176022 


003242 
003242 


003306 


RDCCT: MOV sMAKE ROOM FOR DATA WORD 
MOV 13, ~tSP) SAVE RO 
MOV %1,-(5P) ;SAVE RI 
INDAT: CLR %1 *CLEAR DATA WORD 
CLR COUNT :SET NO. OF DIGITS = 0 
RODAT: TSTB -aTKS ;TEST TTY READ STATUS “e 
BPL RDDAT — T 
MOVB aTKB,-(SP) PUSH DIGIT ON STACK 
BIC #BIT?, (SP) 
ECDAT: STB PS TeeT TTY PRINT STATUS 
mcVB (SP) TPB “tECHO CHARACTER 
F tSP) 315 IT A TERMINATOR? 


TYPA: MOVE Os ~ aT ‘GET C 
CMPB #100, TYP! ‘CHECK FOR"a CHARACTER 
BNE ry PC’ : BRANCH If NOT"a”. 
MOV SAVRO, “0 RESTORE RO 
RTI TERMINATOR /srer. DONE. EXIT. 
TYPC: ¢CMPB #45. TYPDAT s CHECK 
BEQ. ‘TYP : BRANC Fe 
ISR x7 TYPD : TYPE CHAR IN TYPDAT 
TYPD: MOVB TYPDAT,aTPB sOUTPUT CHARACTER TO. PRINTER 
TSTB. aTPS *WAIT FOR DONE FLAG. 
SPL 4 
RTS “7 ;EXIT : ' 
TYPF: MOVB als TYPDAT *MOVE CARRIAGE RETURN CODE TO TYPDAT 
JSR 2 typ -GO T ‘ 
MOVE Ae TYPDAT sMOVE, LF CODE TO TYPDAT. 
ISR ¥%7, TYPD »GO TYPE CHAR. 
YPDAT: BEEN its 
; SUBROUTINE TO OUTPUT fA SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 
TYPSAA: MOV .. oye %0 GET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
ADD #2, a%6 :UPDATE 10 NEXT MESSAGE 7fopRE 
MOV 370, TYPSB “ADDRESS OF MESSAGE F 
CMP #-1' TYPSB :CHECK FOR TERMINATOR 
BNE TyPsa *BRANCH IF NOT TERMINATOR. 
MOV SAVED, xO RESTORE 
RTI ; TERMINATOR, EXIT 
TYPSA: MOV: SAVRO,x0 
TYPE ;CALL ON TYP SUB TO TYPE MESSAGE 
TYPSB: OPEN SADDRESS OF MESSAGE GOES HERE 
BR TYPSAA >GO PROCESS NEXT MESSAGE 
SAVRO: OPEN 


j SUBROUT INE TO “= Petts DATA FROM THE TELETYPE PRINTER 


102 






s ADDRESS OF MESSAGE TO RO. 











JO02 
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1001 003410 005237 001324 INC COUNT sINC_NC. OF DIGITS 
1002 002414 Oe2737 O0O067 001324 CMP #67 , COUNT ; MORE THAN SIX DIGITS? 
1993 Od03422 003407 BLE RREAD iBR IF 
1004 posted Bob 301 ASL %1 EAR LOWEST THREE BITS 
196 §6006391 ASL “1 DATA WORD 
ODF Bosse reat oo0c6a ar ‘e (SP) TO_BINARY 
i hte beset Abb C8 "Biart 8 DATA WORD 
1303 ae ranean RREAD: BR Oe i967 NEXT USER OTT ILLEGAL CHARACTER - 
1011 OO3444 013232 DTERR 
1012 OO3446 305726 TST (SP)+ ;GET RID OF ILLEGAL CHARACTER 
1013 003450 ey BR INDAT *START SUBROUTINE AGAIN 
1014 003452 010166 ooD010 RETRN: MOV %1, 10(SP) STORE DATA WORD ON STACK 
1015 003456 005726 TST (SP)+ “INC STACK POINTER 
1016 OO3460 9012601 MOV (SP)+,%1 *RESTORE Rl 
1017 003462 012600 MOV (SP)+;%0 ; RESTORE RO 
1018 003464 000207 RTS PC * RETURN 
i020 {SUBROUTINE TO DELAY A SPECIFIEL NUMBER OF MILLISECONDS 
1021 011637 903526 BLY 3%, DLCNT :GET DELAY COUNT ADDRESS. 
1022 003472 062716 o00002 ADD #2, 345 *SET UP EXIT ADDRESS 
1023 003476 017746 o00024 MOV apt CNT, -(6) ‘DELAY COUNT TO STACK 
1924 O93S02 001407 BEQ DLYC 
1025 003504 012746 -o00e26 D'YA: MOV #t2cb, -(6) 1 NSEC COUNT TO STACK 
1026 903510 005316 CLYB: DEC a%6 S DECRENENT 1 MSEC COUNT 
1027 O03512 001376 BNE DLYB >BRANCH IF 
1028 003514 005726 POPSP :ZERO. UNCER MSECS. COUNT. 
1029 003516 005316 DEC axé : DECREMENT 
1030 003520 001371 BNE DLYA *BR IF NOT BONE DELAYING 
1931 003522 005726 DLYC:  POPSP sDONE 
1932 003524 900002 TI EXIT. 
1033 003526 900000 DLCNT: OPEN :CONTAINS MILLISECONDS COUNT ADDRESS. 
1935 “OCTAL TO ASCII CONVERT ROUTINE 
1036 104011 BaCNV: SAVREG sSAVE REGS. 
1037 003532 013500 MOV a(5)+, 40 :GET OCTAL VALLE. 
1038 003534 012501 MOV (5)+,%1 *GET DESTINATION ADDR. 
1039 003536 012502 MOV (5)4°%2 GET CONVERT COLINT. 
1040 003540 O&0201 ADD 2, %4 “DEVELOP ADDR TO STORE 1ST CHAR. 
1041 o03542 910003 GACNVA: MOV “9; %3 
1042 003544 042703 177770 BIC 8177770, %3 s ISOLATE LEAST SIGNIFICANT DIGIT. 
1043 003550 062703 O00060 ADD #60,%3. “CONVERT DIGIT TO ASCIT. 
1044 093554 110341 MOVB  %3,-(1) :STORE ASCII CHARACTER. 
1045 9035568 042700 000907 BIC 87/40 
1046 003562 Y, 
1047 903564 006000 ROR “0 
1048 003566 006000 ROR “0 
1049 003570 DEC %2 ;DONE ALL DIGITS? 
10S0 003572 001363 BNE OACNVA *BRANCH IF NOT DONE. 
1051 003574 104012 RSTREG RESTORE REGS. 
1 003576 002 


RTS 4S “DONE. EXIT. 
; SUBROUTINE TO GENERATE PARITY ON DATA FOR 5.6,7,8 LEVEL (one 
; PARITY BIT IS THE MSB OF THE CHARACTER ARity CAN BE E 


BE VEN OR ODD 
1056 ; GENERATES ODD/EVEN PARITY. 





KO0e 
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000200 001362 GENPAR: OM hits , CARMSK TEBR Te i CHAR LENGTH 

000100 001362 #BIT6, CARMSK s TEST } ee" CHAR LENGTH 
SEVEN’ CHAR LENGTH IS 

000040 001362 crema 


BR FIVE 
000200 001322 : #BIT7, PARBIT ;PLACE PARITY BIT hs er POSITION 
M SET UP_ROTATE COUNTER=7 


000007 001324 
177600 


000040 
000005 
177740 


000100 
009006 
177700 


000020 
000004 of 


177760 
001326 


# 

#177600, %1 
#BITS, PARIT 
#5, COUNT 
#177740, %1 
#8176, PARBIT 
#6, COUNT 
#177700, %1 
DOIT 

#BIT4, PARBIT 
#4 T 
#177760, x1 


%1, SAVE 
“1 


sMASK OFF UNUSED BITS 
GENERATE PARITY FOR 8 
‘Beace PARITY BIT IN PROPER POSITION 
3SET UP ROTATE COUNTER=S 
:MASK OFF _U IT 
?G0 AND GENERATE. PARTTY FOR 
:PLACE PARITY BIT IN PROPER POSITION 
:SET UP ROTATE COUNTER=6 
:MASK OFF UNUSED 
GO AND GENERATE PARITY FOR 7 
PLACE PARITY BIT IN PROPER POSITION 
sSET UP ROTATE COUNTER=4 
:MASK OFF UNUSED BITS 
:GO AND GENERATE PARITY FOR 
:SAVE DATA 
ROTATE DATA 


ADD1 SIF CARRY SET ro IN PARBIT 
901324 : COUNT s DECREMENT 

AGAIN ;NOT DONE DO IT AGA IN 
ooco4e = 001374 al 300 NE Aye. OR SHED PARITY? 


N 
001322 001326 PARBIT, SAVE : IF ANOTHER 
001326 DONE: SAVE, 1 ‘PLACE DATA + NPARITY Back IN R1 


iA 
001322 001326 ADDI: aol anti ADD PARBIT TO DATA . 
BR RTN RETURN TO COUNTER 


fh ctegd SELECT LINE AND LOAD VECTOR ASSIGNMENT 


1076 
1077 
1078 
1075 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 


GET INPUT 
LOAD Rl 
; MASK ort ALL BUT LINE BITS. 


ro 


2 


;SAVE LINE # 
;LOAD RODRESS OF REGISTERS 
SET UP COUNTER 


BUFRLOw—o 


*LOAD INTO PROG. RXVT 
ie (1)+ “ADD +4 TO RXVTR TO = TXVTR 


bb 2 b= Bb Ob b= = = bh 
ee ee ee ee ee ee ee ee oe ee 


LINSA 
WecTAg(L>, 41 ;GET LINE VECTOR coon ss 


Se 
ftwurOw 
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cocoos 001240 


prs bos b> ps2 peo 


ree fe b— b+ b+ 0 — p22 b> p< pb pepe 


b= b+ b—2 p< 82 po pe - 


Os b= Be be Bae be he ae be Be bn ee me be ae ho he Bn be bn bs 2 hn be hs be Pe me bo pn hs pan ban b- 0 ho ho fo hme Pw Bah me fo Fo P= h-2 po fe 
BOG Bhan eo PO Se oO UENO eco hOre dab SONU Ga rUr OUD NOMEN E CoFOr ES DOS EOE cofore eee 


0-2 bb bh = bb BB sh Bt eh bee be 









TST (3)+ ‘POINT TO PROG TXVTR 
MOV %1, (3) “LOAD INTO PROG TXVTR 
CMP #5, PRGNUM RUNNING PROGRAM # S 
RYE g _ jRETURN TO PROG 5 
ASR TEMP : POSITION 
CNVOA TEMP, TLINEX,2 
TYPE ove LINE # THAT 
AL INEX -WAS CALLED 
RTS S 
{SUBROUTINE TO Lond BINARY COUNT PATTERN INTO OUTPUT BUFFER 
tNFIL: NUMBER s INITIALIZE BINARY COUN 
FILL: mov (5)¢, “0 ;GET ADDRESS 
MOV (S)+-CTRD OUNT 
FILLA: MOVB NUMER, (0)+ *LOAD ADDRESS WITH BINARY COUNT 
INCB : INC. BINARY COUN 
DEC OrRee *DEC. COUN 
BNE FILLA 
RTS 5 EXIT 
-SUBROUTINE TO MOVE A VARIABLE NUMBER OF BYTES. 
BMOVE: SAVREG ; SAVE REGS. 
MOV (5)+,%1 : GET"FROM" ADDRESS 
MOV (5)+)%2 ; GET" TO" ADDRESS 
MOV (5)+.%3 GET COUN 
BMOVA: MOVB (1)4,(2)+ MOVE "Te 
DEC “3 :DECREMENT COUN 
BNE BMOVA :BRANCH IF NOT DONE. 
RSTREG RESTORE REGS. 
RTS 4S :DONE EXIT 
‘BINARY TO DECIMAL ASCII CONVERT SUBROUTINE. 
BDCNV: SAVREG - : 
MOV BEC VAL “0 :SET UP ADDR T9 STORE DECIMAL ASCII IN RO 
MOV a(5)+,%1 :BIN NARY V VALUE T 
MOV ts}, *aocNVC :DESTINATION ADDR TO BDCNVC. 
MOV (5)+: BOCNVD *COUNT TO BOCNVD. 
MOV #ADTENP.. %2 “ADDR OF TEN POWER STRING TO Re. 
MOV #5, CNVCTR iSET UP FOR S POWER CONVERSIONS. 
BDCNVA: MOV (ess TENPWR OVE POWER OF TEN VALUE TO TENPWR. 
JSR ?, SUBTEN i PERFORM CONVERSION 
DEC Gwe “DONE 5 CONVERS TONS? 
BNE BOCNV *BRANCH IF NOT YET S. 
SUB BO END 40 >SET UP ADDR TO MOVE DECIMAL 
MOV 70, BOCNVB :DATA FROM 
a." ¥%5, BMOVE : MOVE DECTNAL DATA TO DESTINATION. 
BOCNVE: OPEN SRC ADDR. 
BDCNVC: OPEN DEST ADDR. 
BDCNVD: OPEN ; COUNT. 
RSTREG RESTORE REGS. 
RTS 4S 
SUBTEN: CLR DIGIT CLEAR DI 
SUBTNA: SUB TENPWR, “1 ‘che TRAC BiG i POWER FROM BINARY VALUE. 
SUBTN “BRANCH IF UNSUCCESSFUL SUBTRACTION. 
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BR 
004360 SUBTNB: TENPUR “1 ; RESTORE i Seate f Tale. 


tee rove Ye Pe OVE faclt hen 1B 10 BECvAL FIELD. 


CNVCTR: 

DIGIT: 

TENPUR: 
ADTENP: 


* 
040 DECVAL: .BYTE 040,040,040,040,040,040 


040 
i SUBROUTINE TO SET CHARACTER LENGTH PARAMETER 
SETPAR ee YPE: SELECT PARAMETERS. 


003314 JSR GET INPUT 
001374 MOV 


177400 001362 : MOV #177400 , CARMSK SET CHARACTER eo TO 8 BITS. 
oocode 001374 BI #BIT1, SRT :SE 1 IS SET. 


STPAR : F NOT SET. 

177709 001362 #177700, CARMSK C CHAR MASK TO & BITS. 

000001 001374 #8179, SAT F SR BITO IS SET. 
PAREX’ BRANCH IF NOT SET. 

177740 001362 MO #177740, . CARMSK : CHANGE CHAR MASK TO S BITS. 


: I 
000001 001374 : #BITO,SRT : SEE IF SR BIO 1S SET. 
B STPARA-2 BRANCH IF NOT 
177809 001362 ee 3177600, CARISK :CHANGE CHAR MASK Th 7 BITS. 


ODO SOUT EttOr Deo SOUT Ee Coro as SONU a core 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
‘ 
I 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


TERROR TRAP HANDLER - TYPE TO AND FROM WHERE ERROR TRAP OCCURS 
001336 ERTP: MOV PSW OLDPS ;SAVE OLDPS 
177776 MO sPRTY? PSM 


LOP 
OLDPS 


OLDPS 
001336 #177740, OLDPS 
001349 OLDPS, TOPC 
av PROMEEC 
5S, OACNV 


6 
003530 R “5 , OACNY 


‘e 


1224 
000090 
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001340 


001214 
001340 
001219 


001370 
001379 


174212 


001370 
001370 


174156 


001370 
001370 


001370 








NOe. 


IMP START 
I MAPVEC = MAP VECTOR RyperTor OR REPORT ERROR DEPENDING ON FMAP FLAG 
MAPVEC: MOV 
POPSP2 
MOV a%6, FROMPC 
SUB #4, TOPC 
TST FMAP 
BEQ ERTPA :NOT MAPPING, REPORT ERROR 
MOV TOPC, TXVTR STORE VECTOR 
SUB #4, TOPC 
MOV - TOPC,RXVTR 
CLR FMAP 





 FORMAD ~ FORM DEVICE AT ADCRESS 
%1,RXCSR 


FORMAD: MOV RX 
ADD 2x1 
MOV %1, RXBUF 
ADD 241 
MOV %1; TXCSR 
ADD : 


; SUBROUTINE TO s SOME CORTE 


LINC C 
#BIT13,RXCSRT sYES, Is CLEAR TO SEND yp 
BNE LINEUP’ YES CONNECTION IS MADE. 
LINCA: BIC #146, JRXCSR CLEAR IE BIT AND OTR, RO TO SND 
TST JRXBUF if CLEAR DONE FLAG 


TYPE 

MAKCON :*MAKE LINE CONNECTION’ 
LINCB: MOV JRXCSR, RXCSRT 

BIT #B1T14, RXCSRT ;DID YOU RING 


BEQ L ;60 WAIT FOR RING 
BIS BG. SRXCSR ;SET_DTR, RQ TO SND 
DELAY :WAIT 1g SECONDS FOR 
10000. . CLEAR TO SEND 


MOV ARXCSR, RXCSRT 
RXBUF 





TST JRXBU ;CLEAR DONE 
BIT #BIT13,RXCSRT ;IS CLEAR TO SEND UP? 
BNE LINCF iy s. C 
ERRRX ;NO._ PRINT ERROR MESSAGE 
LINCHM "CLEAR TO SEND NOT SET’ 
BR LINCA ;START OVER AGAIN 
LINCF: MOV DRXCSR,RXCSRT  ;CLEAR ALL FLAGS 
TST ORXBUF 5 AND DONE 
TYPE TYPE Nes SnGe 
pew CONNECTION IS it Me 
LINEUP: RTS 5 sEXIT LINE C Me ION ROUTINE WIT 


; SUBROUTINE TO OVERLAY «CRLF IN’ DATA PATTERN (EVERY 72.ND CHAR) 
SVRLAY : HOV Bout BUE 1 ADDRESS 


OVRLYA: MOV tisdi6, aD famed CRELF 
ADD #72. ,%1 ADD OFFSET 





*+ +6 -0-<-6-<-9 «© 
My 
min 
Cath pe 
. ‘Oo 
CHD pe: 
le ie ee 7) 
ows , 
+ +98 
fepteso- 
woo 


ie 
op ereenterty teste 


Utter Tid 


bib) 


*o-« 
PUPUPEL OP 
a 


Piatetaterel 


0-6 +9 -<6-<9- <9- 


oe 
™“ 


ere oe) el srs es 


£00 0.000 Or U1 Gore 


* 020-0 -<0-2p-90 «9-290 


“> +0 +6 
0-6 


“9 


RIMIAINIAIAIMIMIOIAIAIOIAI MIATA AIA A 


- 
rurue-- 
ooo 
BB228 


+0 *0-20--0 <0 +068 


ood oo 


BO3 


a) Fe DONE? 
BNE save 
aT ? EXIT 

iSECEIVER J INTERRUPTS COMMON HANDLER 

toge av “0, LINE 
aSL * gah 
May RCSR(D),RXCSR  :GET ADDRESS OF INTERRUPTING 
MOV SRXCSRAKCERT «=—-s GET «CSR CONTENTS 
SM? DCERR :SHECK INT 
TST8 0s RXCSRT : TEST DONE 
SNE RISRA 
ERROR Ene INTERRUPT 

SISRA: MP «0. CALLED 510 CALLED LINE INTERRUPT? 
BNE RISRS TBRANCH IF CALLER INTERRUPTED 
TST MODEM :CHECK MODEM TYPE 
BEG RISRAA :SRANCH IF 103 
3} DRBUF (03 :READ CALLED LINES DATA 

RISRAA: MOVE BUF (0), JINBUFP;STORE CHARACTER IN INFUT SUFFER 
INC INSUFP INCREMENT PCIN 
op STNBUF +100. , INgueP: iHRVE too, PaHRBACTERS SEEN RECEIVED? 
BE? —RISRC 330, CHE CHECK GATA IF YES 

RISRE: MOVB dRBUF(O). 2BLFFP ere SHORACTER IN INTERMEDI 
INC BUFFP : INCREMENT 
sit aBUFF +10, ,BUFFP i SHAVE IC AMpRACTERS BEEN SECEIVED 
RTI BATT 
chp 82, CONFIG IUNNING CONFISURATION 2? 
BES ey7éee3 
MP SBUFF 100. .QUFFP;HAVE 100. CHARACTERS BEEN F 
BEORISRC $90 CHECK'OATA IF YES, OTHE 

RISRGB: BIS —NBITE.JTCSR(O) [ART CALLERS TRANSMITTER 

i CHES ek DATE CONFIGURATION #1 

ee eL.TW SINITIALIZE CHARACTER COUNT 

MOV BUFF, %2 :POINT Re TO CALLERS RESETYV 
MOY sOUTBUF “3 :R3 = FIRST ADDRESS OF OUT 
MOV 2, BUFFP :RESTORE CALLERS RCVD DATA 
ite #1 CONFIG :CHECK CONFIGURATION 

RISROA: MOVB (3), XMTDAT GET TRANSMITTED CHARACTER 
MOVE  (2)+,RECDAT GET RECEIVED CHARACTER 
DATCHK : HECK ATA. 
INC CTR sIN NOREMENT CHARACTER COUNT 
CHP #101 CTRO SHAS ALL DATA BEEN CHECKED 


JMP FINISH 


iit cB: NOP 


me en em te 





TE DATA SUFFER 





$6 ee 
m~ sunt Do-e 


"0 0 <0 <>--9-<6 9 -*6 6-68 


HS 


-. 
WIGIGIGIGI) OIGIGIGIGIG) 
ny 


Ria 
IVT? a) 


ad qd 
PRET T 
U1 4. Gafus-- 


ii 


GNU 


iS Sat Ja Sa 


WWIGWIGIGIIGLS 


oa ~terut 


o-=- &-< 6 -* & + 0-< & + 0-- & 28-2 8-4 0-2 > ©6-26-<— 8 ©6 +6 <0-9 ©) - §-<- 6-6 - +h <p © p-<8- 
8 t 
£Gifue-09.0 


Cad tata) CI OI OIE) GIOIOI GIO) 
piper titititia 


0+ 0-<) «b+ 0 0-+ b-< & 28-0 8-0 


BSSSSIER 





a3 


Ql 
10430 
sept 
b16i37 
l12a3¢ 
104 
Oi 
Ol 
i 


(+-0~ 
ic 


Ge3420 
005770 


051419 
o9;200 


weeww 


001200 


091364 


001412 
031332 





co3 


MOV sINBUF “4 :POINT R4Y TO CALLED LINES RECEIVER 
MOV 44, INBUFP ‘DATA BUFFER & INIT. POINTER 
MOV sBUFF. TBUFFP 
MOV Leb “I 
MOV RCSR(1$ RXCSR ; 
MVE 1+, xMTDA c 
MOV (2)+,RECDAT sCOMPARE TRANSMITTED DATA WITH DATA 
DATCHK "RECEIVED BY CALLED LINE 
MOV CALLER, “1 
MOV RCSRi15 RXCSR 
OVB (4)+,RECDAT == COMPARE TRANSMITTED DATA WITH DATA 
DAT CHK :RECEIVED BY CALLER 
INC CTRD 
CMP S101, CTROD 
SNE RISROS 
NOP 
MOV CALLED. %1 
JSR S.FiLt 
OUTBUF sf 
TYPE 
ENDPAS 
BIS s8IT6,aTCSRi}? 
NOP 


RT 
ZERROR SERVICE ROUTINE 
SCERR: 81 


@8ITIS,aRBUF(O) ; TEST ERROR 
RISRF 


C 
MOV SQUTBLF OTELFP 6; SET QUTPUT BUFFER POINTER 
Mo FINSUFP R 


¥  —-BINBUF, ENGI ;SET INPUT BUFFER POINTE 
MOV «sBUFF,SUFFP =: SET INTERMEDIATE BUFFER POINTER 
MOV BUFF, TRUFFP =; SET POINTER FOR CONFIG #2 TRANSMITTER 
SIT BBITI4,AXCSRT CHECK RING INDICATOR 

BNE  ——- RISREX BRANCH IF RING 

JSR -?, DISCON sERROR SET - NO RING 

ERRRX 

CSRADD 

RTI 

CNVOA LINE, TLINE,2 

TYPE 

AL INE 

HOY 29, CALLED 

JSR  —- PC RDC ;GET INPUT 

MOV (SP) MODEM :GET MODEM TYPE 


BIC 8177773, MODEM  ;0=103,4=202 


BNE :G0 TO SERVICE FOR CONFIG 1 OR 
JSR 7, CONN SCONNECT LINE IF CONFIGURATION 
YPE :TYPE MESSAGE TO PRESS DAT 
BUTTON :BUTTON ON DATA 

ELAY tWAIT FOR CARRI 

10000 ae :10 SEC ; 

TS ARBUF LO; tREAD BUFFER TC CLEAR DONE 
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OOS275 


ete tel 
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ed 


© 
ow 
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co 
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atsint=: 
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Gwe esl Lore 


- 
po 
eo 
> 
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932770 
001004 
104003 
004737 


Bt 
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Cre £ 
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sq90' 
-O3900 


006234 


010626 
po44a2 


003106 


005734 


d20000 


006210 
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Ji0432 


OCiec4 


010626 


001332 
010432 


001200 


010432 





DO3 


BiT #BIT13,9RCSR(O) ;TEST FOR CLEAR TO SEND 
BNE RISRFB 
ERROR s ERROR! pI NOT REC EIVE CLE LER To SEND 
S WITHIN Ine ALLO t 
ISR ? DISCON 31 SCONNE 
. Jie : AND eee 
RISRFB: MOV TCSR(G),TXCSR 3GET CALLED LINES TXCSR ADDRESS 
JSR 7, SETPAR $108 GAD USER PARAMETERS 
TYPE YPE "LINE CONNECTION 
LINMAC . MADE" 
ENVOR CONFIG, TCONFIG.2° 
ACONFIG 
5 sBITS,aTCSR(C) . 
z s;AND EXIT 
THERE IF F CONFIGURATION 1oR2 
RISRFS: TYPE sASK USER WHICH LINE HE IS 
WR :DIALING ON 
ISR PC,ROOCT GET 
MOV (SP y+. %1 :GET LINE & 
Bic #177740, «1 sMASK UNUSED BITS 
MOY %l 1, LINE 4 
CNVOA LINE. URA,2 
TYPE :REPORT LINE @ ON TTY 
ASL “1 
By %1, CALLER ;SAVE CALLERS LINE # 
JSR 7,CONN CONNECT CALLED LINE | 
BIS eBITi,aRCSRii) SET OTR ON CALLERS LINE 
TYPE :TYPE MESSAGE TO PRESS Data 
BUTTON :0N DATA PHONE 
DELAY WAIT 10 SECONDS FOR CLEAR TO SENC 
19009. } -SET AT CALLED LINE 
eM JRSUF IO} ORSUF Li ,READ SUFFER 
BIT BBIT13, aRCSALG} ; TEST FO® CLEAR To SEND AT CALLED LINE 
SNE RISRFF 
ERROR 3 sERROR! CLEAR T SEND NOT SET AT CALLED LINE 
RISRFD: JSR 7,01SCON :SISCONNECT 
BIC #6. JRCSR( 1) LINE 
RTI :ANC EXIT 
RISRFF: CMP 82, CONFIG 
BEQ = RISRFG F : 
CMP BBIT12,9RCSRi1) :CHECK CARRIER AT CALLERS LINE 
BNE RISRFE 
ERROR sERROR! NO CARRIER AT CALLERS LINE 
IMP RISRFD :G0 DISCONNECT LINES 
RISRFE: MOV RCSR(1), RXESR 
JMP RISRF G0 GET PAREMETERS AND ENABLE: 


THERE IF CONFIGURATION 2 
PISRFG: BIT eI 13, aRC 
BNE RISRF 


ERROR 
JMP RISRFO 


Ril) 


:CALLED TRANSMITTER AND EXIT 


; TEST CALLERS CLEAR TO SEND 


;ERROR! NO CTS AT CALLERS LINE 
:G0 DISCONNECT LINE AND EXIT 
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1443 006202 915037 910432 901200 RISRFH: MoV = RCSR(O),RXCSR 
1 Boesis ies? Oidese | O01S09 MOV =—s- TCSR( 1), TXCSR 
73? «00442 JSR 7, SETPAR G0 GET PARAMETERS FOR CALLERS . 
TRANSMITTER AND CALLED RECEIVE 
O0S222 016137 019432 001200 MOV =—- RESR(.1), ,RXCS 
005230 600137 905734 JMP —s- RISRFB 
Si TO DISCONNECT LINE RO HAS LINE # 
006234 942770 000006 010432 iw JRCSRO) 
42 905770 010432 SRtoeio) 
006246 000297 Ris 


i SUBROUTINE TO CONNECT LINE RO HAS LINE 8 
g06250 oS2770 o00c06 o10432 CONN: BIS a6, IRCSR(O) :SET DTR, RO TO SND 
056256 000207 RTS 
“TRANSMITTER INTERRUPT COMMCN HANDLER 
006260 oo9240 trsR: NOP 
: 006300 ASL , :RO HAS LINE 8 
O0se64 105779 210626 TS78 «© ITCSRLD) “CHECK FOR DONE 
006270 100402 BM? TISRA :BRANCH IF DONE 
006272 104003 _____ ERROR ;ERROR! FALSE INTERRUPT 
74 TISRAA: RT 5 2 EX 
001332 TISRA: TS CONFIG HIS CONE IGURATIO 9? 

996302 ofl142 3EQ TISRC BRANCH IF YES 

§2eoe77 901402 AMP 40, CALLER :DID CALLER INTERRUPT 


5963i0 001545 BNE I 
006312 117770 173072 c107e4 MOVE aTBUFFP,aTBUF(D) - TRANSMIT 
306320 Aheoa9 601419 INC TBUFF -STEP POINTER 
8963204 Oee737 Cise20 001410 CMP sBUFF +100. . TBUFFE 


006332 901003 
006334 perce 90C108 010626 BIC wits, aTCSR‘ 0} 


006342 RTI 
806344 117770 173036 010724 TISRO: MOVB Q07BUEP, ATBUF (0) RANSMIT THE NEXT CHARACTER 
066352 005237 001406 INC  OTBUFP : STEP polnten TO NEXT CHA 

906356 905737 001332 TST CONF IG il CONF GURATION ; SELECTED 

906362 001910 BNE sa qr CONFIG # 82 

006364 737 O166E0 COI4OE CMP a7 UF +1000. nite nave 1900. SuAaS” RateN SENT 
006272 901340 NE 


B ;EXI 
006374 Ql2e737 O14710 001406 TISRSS: MOV SOUTELF,, OTBUFP ;RESET SguNTER 
ooco02 R ;AND EXIT 


OOs494 922737 915054 001406 TISRB: . sOQUTBUF +100. , TRUE HAVE im. CHARS. SEEN SENT? 


O064i2 901330 NE 
096414 042770 oOO0190 o10626 BIC 88176, aTCSR(O) DISABLE TRANSMITTER INTERRUPT 
o96422 00764 BR TISRBB RESET POINTER AND EXIT 


oeRcD SiN 


PRGO - agiNGLe CHARACTER LINE MODE TEST. 
eee 


poeues oogeHD RGO: “NOB ;BEGIN PRGC 

Boevso 012507 POTIT SPROGRAM TITLE 

O0643e 10 TYPE 

096434 013143 SELCAR 

O06436 004737 003214 JSR PC, RDOCT ;GET INPUT 

Ooe442 112691 MOVB = (SP)+,%1 ;GET USER SPECIFIED DATA 
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0 b—2 b—* bs b= 9 = 0-2 h— 2 = hs ps F292 8-2 po po Pe 
4 4 hp hh pe peat iy ty os 2 
TUDO = 0-- 9 0 b—2 9+ »- + 9 bp (FD 
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£ 


stats 
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010137 014710 
004S37 | 
001747 
poneae 005076 
73° 6010274 
004737 O10226 
004737 O10i6e 
Ole737 O00340 
Ole7G2 000140 
912701 010432 
004S37 O10116 
104000 
013251 
005037 177776 
000001 
000776 
104000 
012553 
012727 105215 
7 O04%14e 
01471e 
1750 
012737 600100 
73? 010274 
re 010226 
4737 010162 
012737 000340 
12702 000140 
012701 010432 
004S37 O10i16 
104000 
piace) 
0050 177776 
000001 
000776 
104090 
Olebe2 
004537 004014 
004737 ~ 00440 
052777 oooc04 
004537 00474 
12702 013504 
li2e01 
O12e7 ooocss 
001772 
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177776 


014710 


001334 


177776 


172314 


-FO3 


MOV %1, OUTBUF ; AND 


999. : BUFFER 
JSR 7, OVRLAY “OVER LAY CR,LF’S 
JSR 7, LOPRI *LOAD PRIORITY LEVEL i Vector+2 
JSR 7, LDTVEC "LOAD TRANSMITTER VECTORS 
J5R 7. LDVECS "LOAD RECEIVER VECTORS 
MOV wPRTY? Psu *SET PROCESSOR PRIORITY=7 
MOV #140, 42 :SET I 
MOV wRCSR %1 BIT IN 
JSR S,MoviT - ALL RECEIVERS 
TYPE ; TYPE 
MAKCON MAKE LINE CONNECTION’ 
CLR PSW sSET PROCESSOR PRIORITY=0 

PRGOA: WAIT : WAIT 
BR PRGOA HERE 

5 RXHRERRERE 


ahaa SPECIAL BINARY COUNT PATTERN LINE MODE TEST. 
éRG1 TYPE ; TYPE PROGRAM TITLE. 


Pp 
MOV #105215,O0UTBUF ;LOAD CRLF 
JSR S, INFIL sLOAD OUTPUT 
OUTBUF +2 WITH BINAR 
1000. COUNT PATTERN 
MOV #100, NUMBER 
JSR 7, LDPRI sLOAD PRIORITY LEVEL IN VECTOR +2 
JSR 7>LOTVEC *LOAD TRANSMITTER VECTORS 
J5R 7, LDVECS LOAD R RECEIVER VECTORS 
MOV #PRTY?. PSW :SET PROCESSOR PRIORITY=7 
MOV #140, %2 :GET IE BIT 
MOV #RCSR,%1 -GET FIRST CSR ADDRESS 
JSR S,MOviT SAND MOVE IT 
TYPE - s TYEE 
_ MAKCON :*MAKE LINE CONNECTION’ 
“CLR PSW af °SET BROCE SOR PRIORITY=0 
PRGIC: WAIT “WAIT 
BR PRGIC > HERE 


5 REERELEERE 

eenianenie MESSAGE TRANSMIT ONLY THIS PROGRAM TRANSMITS 
; THE MESSAGE *A QUICK BROWN FOX JUMPED OVER THE LAZY DOGS 
BACK 1234567890. ° 


brea: TYPE s TYPE PROGRAM 

PeTIT : TITLE 

JSR S, LINSEL 

JSR ° 7°SETP :GO SET PAR RNETERS 

BIS s61Te SRXCSR sSET BEQUEST TO SE 

RG2A: JSR LINCON LINE. CORNECTION 

PRG2B: MOV BPRGeN %2 ae GRESS oF Sc 
PRGeC: MOVE (e)4, 41 T FIRST CHARAC 

CMP “1, 8% MINBTOR CHARACTER 

BEQ PRoeB sti; iR RESENC MESSAGE 
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:S77 906760 
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G03 


he SRT 


ne 


anita 
pRaee 





;PARITY ENABLED 


+e RATE PARITY 
Sora gr necr ION 
eR CHARACTER 


tO ee TRANSH ITTED 
GET NEXT CHARACTER. 


:PRG3-PROGRAN TO MECEIS A MESSAGE. 


000100 001374 BIT 
03600 JSR 
o474 yer 

17225 MO 

172250 

5 RARKKKEK 
ipaae KEE 
PRG3 
004014 
oo44o2 3 
1178 PRG3A: MOV 

900004 172212 B 

>42 

97470 

091234 MOV 

007422 MOV 

001236 MOV 

14710 MOV 

100000 oO7466 BIS 

007654 JSR 

000140 172132 - BIS 

177776 

172116 001370 RINT3: MOV 

001370 STB 

SPL 

007470 INC 

172076 O07472 MOV 

007472 MOVE 

007472 TST 

171050 ae 

172052 TSTB 

172046 MOVE 

007470 01604 RINT3A: C 

OC7466 TST 

00203 CMPB 


YPE 
P3TIT 
JSR 


S,LINSEL 
7,5 


TPAR 
eeTEP TR? % 
$8170, 9RXCSR 


WORDS 
TPVTR, %O0 
#TPINT, (0)+ 
TPLVL, (0) 
#OUTBUF. %1 
#B1T1S. TFLAG 
TCRLF 
#140, IRXCSR 
PSW 


ce 

JRXCSR, RXCSRT 
RR3A 

RXCSRT 

ERR3B 


(1), aTXBUF 
WORDS, #300. 
RINT30 


; TYPE PROGRAM 
; TITLE 


;GET PARAMETERS 
REPOSITION STACK POINTER 
:SET REQUEST TO SEND 

;MAKE LINE CONNECTION 
SET RECEIVER so 
:SET TRANSMITTER INTERRUPT 
TO THIS ADDRESS 


;LOAD_ TELEPRINTER heaped 
AND PRIORITY 

T BUF ADD 
SET BIT iS 


SEND CRLF 
sENABLE RECEIVER INTERRUPTS 


sey NG 
;GET RXCSR DATA 
fea IF ERROR 


;GET DATA 
sECHO OPTION SELECTED 


;ECHO CHARACTER 
sEND OF »gurFER ALLOWED 
S 


; YES Ex? 
31S THIS THE FIRST 
HARACTER BRANCH IF YES. 
SLAST CHARACTER RECEIVED 
;CONTROL C 


sEXIT 


ps 
ou 
<—s 
a~) 


SRS UN Pee ees 
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oc717e 
007176 


7210 
007ele 
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007470 
000140 
014711 


000:99 
000100 


000140 


007466 


171710 
001365 


171676 
007470 


i? 
171646 


171634 


001372 


000100 
000100 


171600 


009203 


001366 


001604 


001372 


171624 


171574 
171606 


ERR3A: 


ERR3B: 


ERR3C: 
RINT3E: CLR 


+rnT3: nov 


TINT38: wo 


RINT3B: gr 


tINT3C: BIC 


+PINT: MOVB 





WORDS 
#140, ARXCSR 
s0uTeiret, %1 


aatte. aTXCSR 
sBIT6,aTPS 


#140, IRXCSR 
PRG3A 


TFLAG 

(1)+,%3 
aTXCSR, TXCSRT 
TXCSRT 


TINT22 
(1)+, JTXBUF 
WOR 


aTPS, TEMP 
aTPS 
one 


aTPs 
74 
TEMP, JTPS 


ert. a 


HO3 


3= CONTROL ¢ 





ATTIALICE BUFFER POINTER 


;ENABLE TRANSMITTER 
; ENABLE TELEPRINTER 


EXIT 
*TYPE ERROR MESSAGE 
:DISABLE RECEIVER 


: TYPE 
s;ERROR MESSAGE 
sEXIT 


;GET_TXCSR DATA 
; TEST 


; TRANSMIT CHARACTER 
;ALL CHARACTERS TRANSMITTED 


3= CONTROL C 


;RETURN TO MAIN PROGRAM 
SAVE TELEPRINTER STATUS 
;DISABLE INTERRUPT 


:WAIT FOR 
:TELEPRINTER TO FINISH 
ERROR MESSAGE 

sHATT FOR TELEPRINTER 
;RESTORE TELEPRINTER STATUS 


;DISABLE INTERRUPT 
1S TTY ACTIVE 


; TYPE CHARACTER 
;WAS THIS THE LAST CHAR. 












103 
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RTI 
1s74 O0744e OYe777? 000100 171554 TPINTA: BIC #BIT6,aTPS ;DISABLE INTERRUPT 
1675 O074S0 O3e777 CO0100 171526 BIT #8176, dTXCSR ;1S TRANSMITTER ACTIVE 
igre Borses Booode if 
ut ;EXIT 






igo? 5074 
1678 007462 GO0137 006754 PRG3EX: JMP —— PRGGA 














1 
1683 SPRGM-SPECIAL MESSAGE TRANSMIT ONLY THIS PROGRAM TRANSMITS 
1RSy EEE 

1685 : MESSAGE SPIRAL PATTERN 

1687 007474 104000 brcu: TYPE ; TYPE PROGRAM 

1688 007476 012730 PUTIT : TITLE 

1689 007500 004537 004014 ISR S,LINSEL 

1690 007504 00737 powHde J5R 7 36 TPAR :G0_SET TERS 

1691 007510 0S2 ooo 171462 BIS whlT2,aRXCSR SET REQUEST 0 SEND 

1692 007516 012737 000110 O076Se MOV #72. , COLIN SINIT PAGE WIDTH 

1893 007524 012703 900040 MOV #40, % :SET LINE START CHAR 

1694 007536 o04S27 O04742 PRGHA: JSR S,LINCON :G0 NBKE LINE CONNECTION 
1695 007534 004737 007654 JSR 7’ TCRLF 

1695 097540 010302 PRGYB: MOV %3, %2 sGET FIRST CHARACTER 

1697 907542 110201 PRGHC: MOVB %2,%1 :GET 

1698 907544 120127 000136 CMPB 3s «X1 #136 TERMINATOR CHARACTER 
1699 007550 001003 BNE PR&YD *RESEND MESSAGE 






1700 007552 012702 oco040 MOV #40, %2 
000771 R PRG4 
















1701 007556 B 
1702 007560 032737 OODIOO 001374 PRGHYD: BIT #BIT&, SRT ;PARITY ENABLED 
1703 007566 001402 BEQ +6 
1704 007570 004737 003600 ISR 7, GENPAR sGENERATE PARIT 
1705 007574 004537 004742 J5R S’LINCON *CHECK LINE CONNECTICN 
1706 007600 010177 171402 MOV %1, JTXBUF ;LOAD BUFFER 
1707 007604 105777 171374 TSTB OTXCSR 3 AND WAIT FOR CHARACTER 
! ; ;SET FOR NEXT On 

1719 007614 005337 007652 DEC COLMN *ALL COLUMNS - PRINTED? 
1711 O07620 001350 BNE PRGHC *NO, GET NEXT 

1712 OO07622 012737 000110 on7ES2 MOV #72. COLMN RESET COLUMN COUNTER 
1713 007630 904737 097654 JSR 7, TCRLF 

1714 007634 095203 INC %3 ;UPDATE LINE START CHAR 
1715 007636 120327 000136 CMPB 4 «%3, #136 sLAST IN SE 

1716 OO07642 O01 BNE pRouB 

1717 907644 012703 oOco4O MOV #40, %3 ES. RESET 

1718 907650 000733 BR PRG4B NEXT CHARACTER. 
1719 007652 000000 COLMN: 0 

Ze *SEND CR LF 

1723 007654 112777 000015 171304 TCRLF: MOVB #15, aTXxBUF ;SEND CR,LF 

1724 OO07662 105777 171316. TSTB 3s TXCSR 

725 007666 100375 BPL et 

1726 007670. 112777 900012 171310 MOVB #12, dTXBUF 

1727 007676 105777 171302. |. TSTB.  =-_- ATXCSR 





105 
1728 007702 100375 | A 
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yo 
iat) 


ia ab Ai a 


Sape ous? 
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RES 


27732) 


000207 





17-SEP-76 15:21 PAGE 35 


004014 
Boaode 


171236 
020000 


0:0114 
013504 


000045 
000100 


003600 
020000 


171150 
171140 


171246 


171226 


001374 


171150 


RS 


5 RRRRAAKARE 


:PROGRAM 5 
+ REREREEHEE 


PRGSA: 


PRGSAA: 


PRGSB: 


PRuUSBB: 


PRGSC: 


PRGSD: 
PRGSE: 


ERRCNT 


peri 


JO3 


“7 


5,LINSEL 


7, SETPAR 
46 SRXCER 


@RXBUF 
#B81T13,dRXCSR 
PRGSB 


PR 
#8176, SRT 


?, GENPAR 
aB1TL3, JRXCSR 
%1, JTXBUF 
ORKBUF 
JRXCSR 


“4 
ORXBUF , %3 
CARMSK, %1 


Brees 


ERRCNT 
dJTXCSR 


.-4 
PRGSC 


PRGSBB 


;SET DTR RQ TO SND 
TYPE MESSAGE TO MAKE 


SLINE CONNECTION 
iat FOR TO MAKE LINE CONNECTION 
:TEST FOR CLEAR TO SEND 

; TYPE ERROR MESSAGE 


;AND TRY AGAIN 


; GET 
GET @_CHARACTER 
WAS IT THE TERMINATOR? 


;WAS PARITY OPTION SELECTED? 
; BRANCH ef Aa DESTRED 


:GENERATE PARITY ON CHAR. IN Ri 
3 CHECK CLEAR T 

;TYPE ERROR MSG. IF NOT SET 
TRANSMIT THE CHARACTER 

ANY ERROR FLAGS? 

BRANCH IF NO ERROR FLAGS 

iER ROR! SOME ERR 


OR FLAG IS SET 

WAIT FOR THE RECEIVER TO RECEIVE 

THE TRANSMITTED CHARACTER 

:SAVE IT IN R3 

*CLEAR NON- TRANSMITTED BITS 

WAS RECEIVED & TRANSMITTED DATA THE SAME 


;ERROR! DATA ERROR 
;WAIT FOR TRANSMITTER TO FINISH 


: OP 
b THES ROUTENG MOVES THE CONTENTS OF Re TO THE ADDRESS SPECIFIED 


hovit: 


MOVITA: 


MOV 
MOV 


MOV 
MOV 


#6, 4 
#26 


#3i. 
"3 ative 


;SET UP FOR RETURN 


;GET COUNTER 
;MOVE THE DATA 


oe ADDRESS OF DATA TO BE TRANSMITTED 
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SESS cs nin 


QoOdOOO0O0DN ONOOOOO0O0000 


rm 
N 
ee ee | ee ee ee a a a a re 


SOREEOOS 


b+ bh b= b= bb bb bh eh 
Resse 


td 
mtatna 
Doe 


1840 


[aw | os | oe] | 
— pp 
ornare 


Beet 


fore 
res 


5 
3 
S g&eae 


Bees SSPERRR ERS Sk 


oO 
w 
on oo od 
Oto 


BS Beas 


Dawe 
to 
£mMo 
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001356 
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004SeG 000004 
000040 000006 


011022 
010334 
000010 
000037 
000001 
ooo0ce 


011412 


000002 


KO3 


DEC %0 “ALL DATA MOVED? 
BNE MOVITA ‘NO. RETURN 
MOV #ERTP. MACHER 
MOV #40, MACHER+2 
RTS S s RETURN 
-SUBROUTINE TO LOAD ALL VECTORS 
LOVECS: MOV #RISRO, %1 
MOV #VECTAB, 42 
MOV #10,%3 
MOV #31: %4 
LDVECB: BIT #B1TO, (2) -DOES THIS VECTOR EXIST 
BNE Lovec! :NO, SKIP LOADING 
MOV %1, ate) "LOAD VECTOR 
LDVEC1: ADD 43, %1 
TST (25+ 
DEC “4 
BNE LDVECB 
RTS 
COTVEC: MOV = #TISRO,%1 
MOV #VECTAB, “2 
MOV 10,% 
MOV #31) .% 
LOTVED: BIT #BITQ, (2) -DOES THIS VECTOR EXIST 
BNE LDVEC2 NO, SKIP LOADING 
MOV (2), %0 
MOV %1,4(0) 
LDVECe: ADD %3.%1 
TST (25+ 
DEC “4 
BNE LOTVED 
RTS ? 
“ROUTINE TO LOAD PRIORITY LEVEL 7 IN VECTOR + 
{DPRI: MOV #VECTAB, %1 ;GET BASE VECTOR 
MOV #340, %2 GET LEVEL 7 
MOY .#31..%3 ‘LOAD COUNTER 
LDPRIA: BIT eBito (1) sDOES THIS VECTOR EXIST 
BNE LDPRIX ;NO SKIP’ LOADING 
MOV (1),.%4 ‘LOAD VECTOR +2 : 
MOV %2,2(4) 
LDPRIX: TST (13+ sPOINT TO NEXT VECTOR . 
C *DECREMENT COUNTER 


RTS 
pec Ton 1 real TABLE 


%3 
LDPRIA 


YECTAB: 301 sLINE O VECTOR 
311 “LINE 1 VECTOR 

321 “LINE 2 VECTOR 

331 *LINE 3 VECTOR 

‘LINE 4 VECTOR 

35 *LINE S VECTOR 

LINE & VECTOR 

LINE 7 VECTOR 
*LINE 10 VECTOR 











OZDLSB MACY1I 

DZDLBB.P11 
1841 010356 
i 
{gay 10364 
1845 010266 
184% 010370 
1847 010372 
1848 010374 
1843 010376 
1850 010400 
18S1 010402 
1852 010494 
1853 010406 
1854 G10410 
1855 9104le 
i856 010414 
18S7 O1041s 
1858 910420 
1853 0104e2 
1860 910424 
1861 Q10426 
1862 010436 
1863 
1864 
1865 
18&6 910432 
1867 
1868 
18893 
1870 
1871 
1872 
1873 012536 
1874 
1875 
1876 
1877 
1878 
187 
1880 Ol1Sb2e6 
1881 
1882 
1883 
1884 
1885 
1886 
1887 010724 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1g95 


271732) 


000411 
o004e1 


0C0929 
000000 


303900 
009000 


90029 
gecoos 


o000C0 
ooccoo 


000000 


RCSR: 


REUF : 


TCSR: 


17-SEP-76 15:21 PAGE 37 


31. 


\N, \A 


31. 
\N, \A 


31. 
\N, \A 


LO3 





>» 
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1301 


1903 

1803 o1e01e 
1904 12020 
1905 012026 
1996 012034 
130? 12042 
1908 0120 
1909 012056 
1810 12064 
1911 12072 
i912 012100 
1913 012106 
1914 12114 
1915 Qlele2 
1916 012130 
1917 012136 
1918 O1e144 
1919 010146 
1929 915154 
1921 012162 
1922 012166 
1923 012174 
1924 012176 
1925 912204 
1926 O12212 
1927 012213 
1928 Ole220 
1929 Dieee6 
1930 12234 
1931 Olee42 
1932 012247 
1933 012254 
1934 Qle2be 
1935 012270 
1936 012276 
1937 012277 
1938 012304 
1939 012312 
1940 012314 
1941 912322 
1942 012324 
1943 012332 
1944 012340 
1945 012346 
1946 012354 
1947 012357 
1848 012364 
1948 012366 
1950 012374 
1951 O1e402 
1952 Ole4u7 


27732) 





000909 






047117 
047125 


046101 
052116 
051126 
040506 


020040 
020040 


020040 


020105 


022504 


052 

040See 
050101 
047524 


020040 
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N= 
.REPT 
ISRT 
N=N+1 
.ENDR 
: MESSAGES 
MTITLE: .ASCII 
.ASCII 
.ASCII 
MLINE: .ASCII 
MDADR: .ASCII 
MTRAP: .ASCII 
MNONE: .ASCII 
MSWSEL: .ASCII 
MTERR: .ASCII 
ASCII 
MTO: .ASCII 
-ASCII 
MFROM: .ASCII 
CSRADD: .ASCII 
RINTM: .ASCII 
TINT: .ASCII 















32. 
\N 






*"ZDLI1-E ON LINE TEST - MAINDEC-11-DZDLB-B”.’ 


*“MAP OF DEVICES PRESENT%’ 


"%LINE D-ADR TRAP AT%3" 


’ 4a" 
**NONE FOUND%a)’ 


*“%TYPE IN PROGRAM NUMBER a’ 





*ZERROR - UNEXPECTED TRAP’ 


*“%TRAPPED TO ° 









*“TRAPPED FROM PC ° 


*“FALSE INT. RCVRQ’ 


*“FALSE INT XMITQ’ 
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igee QiS¥ee 20090 


oO0000 


+S HSS 
tate 
rast 

~ 


g2 

1968 Qlese2 043516 
1969 912530 O40510 
1970 012536 042516 
1971 012544 020105 
1972 O1e552 «100 
1973 012553 O45 
1974 12566 O?0061 
1975 012566 41506 
1978 012574 41440 
1977 012602 40 
1978 “D1e610 047515 
1979 012616 051505 
1980 Oleb22 2244s 
1981 912630. 06440 
1982 012636 O44S03 
1983 12644 051505 
1984 Ole652 046040 
1985 O12660 047515 
1986 O1e666 051505 
1987 O1e672 O22445 
1988 01700 Oe6440 
1385 012706 O44505 
1989 O1e714 051505 
1951 Ole722 O52040 
1992 912730 2244s 
1993 615736 26440 
1994 Gle744 944503 
1985 Ole752 051505 
1996 012760 052040 
1997 Ole7b6 051450 
1998 912774 24514 
1999 012777 O45 
2000 013004 

2001 013012 020101 
2002 013020 O52040 
2003 012026 51526 
2004 013034 O4051 
2005 013042 020104 
2006 013050 O44514 
2007 013055 O45 
2008 013062 owH440 
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O47111 Oe0ie4 
052111 100 
0415e0 020075 ENO: 
020040 020040 APC: 


108 
0S2 an ies ATXCSR: 
020040 O20040 ATXWAS: 
OS4122 051503 ARXCSR: 
020075 
020040 O20040 ARXWAS: 


OSO04S 043522 POTIT: 

020055 O44Se3 

OS004S pa aTss PITIT: 

020055 e 

040124 

051120 031107 PerTIT: 
2520 


031507 P3TIT: 


15 
051120 032107 PHTIT: 
0514 


0511e0 032507 PSTIT: 
052101 


-ASCIT 
-ASCII . 


-ASCIT 
-ASCIT 
-ASCIT 
-ASCIT 
-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT. 


* TXCSR = ° 


. *%PRGS - DATA ECHO TEST USING MAYNARD FACILITY’. 


NO3. 






*7PC= * 








: 3° 
* RXCSR = ’ 

: 2 

*%“PRGO - SINGLE CHAR LINE MODE TEST’ 














*%ZPRG1 - SPEC BIN COUNT LINE MODE TESTQ’ 


*%“PRG2 - SPECIAL MESSAGE LINE MODE TESTQ’ 


*Z%“PRG3 - RECEIVE MESSAGE TESTQ’ 


*%“PRG4Y - SPECIAL MESSAGE TEST (SPIRAL)Q’ 





*“%TYPE IN PARAMETERS AS FOLLOWS: * 
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¢ 


sata 


CUTE UITUFCUTUF UTI UT UT Ue TUUr Uru rete rut ereares 


f. : S: 
£Ginue- 


isisitis 


‘vist 
Pisa 


ee ee ee eee te tee ee eee een © ern a <. 


rururme-- 


bar 4 
2 


eye: 
WES 


SELCAR: 


CERDAT: . 


cSe: 
CWAS: 


CRNUM: 


ENDPAS: .SYT 


AINPRG. © 
PARNSS: 


APARM: . 
LINCHM: . 
LINMAD: 


ACONFIS: 


TCONF IG: 


PRGEM: 


PRGE 4 





ASIII 


ASCII 


-A-99 


ASCII 


*“BITI-0 = CHAR LENGTHY" 





‘TYPE TEST CHAR CODE IN BIT?-BITO OF AN 


*“ILLEGAL DATA’3° 


"MMAKE LINE CONNECTION. 


AR TO SEND NOT SET.a° 


‘cL INE CONNECTION MADE.2* 


**CONFIGURATION #8 ° 


015,012 
"THE QUICK BRCWN FOX JUMPED OVER THE Laz 
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044124 


-ASCII 


-ASCII 


ASCII 


-ASCIT 
-ASCIT 


-ASCIT 
-ASCIT 


“ASCII 


-ASCIT 


a ee 


* 0123456789. %° 


*“LINE FAILED%3° 





*ZOVERRUN, FRAME, OR PARITY ERRORS" 


WAS SELECTEDS' 


"TYPE IN OCTAL: CONFIG! ON IN Bi7G-1 & MODEM TYPE” 


(02103, 12202) 


*“TYPE IN OCTAL IN BITO-4 THE LINE 8 YOU ARE CALLING FROM 
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Or .£MOo 
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033461 
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UR: 


BT FON: 


~ KO TNE: 


MPWRF : 


MMOOX: 


MMODD: 


MMOD1: 


MMODe: 


MMOD3: 


~ASCIT = *%YOU CALLED FROM LINE @ ° 


ASCII * . 
“Reed? + pdess DATA BUTTON GN DATA PHONEQ’ 


~ASCII “X%TYPE LINE NO. IN OCTAL IN BIT 3-7 3° 


~ASCII = * “RECOVERED FROM POWER FAILURES" 


~ASCII = *%ILLEGAL LINE NC.a° 


-ASCIZ “%ILLEGAL DEVICE RDDRESSS" 


-ASCII “%TYPE IN OCTAL : BIT O-S THE LINE NUMBER OF LEVICE ACaRESS 7: Se° 


~ASCII * MODIFIED 2° 


-ASCII *%TYPE IN NEW RXCSR DEVICE ADDRESS 3° 


-ASCIT 


DOY 













"%TYPE IN 177777 TQ CHANGE ANOTHER* 
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£88 
2136 
2191 


014716 
016680 


020530 
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7524 
Bn oe 
* DEVICE ADDRESS 
Be 2 Bet 


NBUF +1000. 
BUFF SCUTBUF+i00. 


ee ee a eee eee eee 
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17198 
1384# 1385% 1404 1434 1471 1483 
1002 1066# 1070% 1074% 1084* 
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063 
GIT 356 
DISCON 34 
DLONT 26 
DLY 
DLYA be 
OLY 003510 
DLYC 
DOIT 003742 
DONE 
pik, Bel 
DTERR 1323 
ECDAT 
EHALT = 194010 
EHLT 


EMO 012427 
ENOPAS 013350 
ERR 


ERRB 
Eene  Ooeeae 
019114 
ERRD 42 
ERRE 44 
ERROR = 104003 
ERRORI= 104013 
ERRRX = 104015 
ERRTX = 104014 
ERR1 3 
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